home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinME Scheduled Tasks.xpl < prev    next >
Text File  |  2002-01-03  |  1KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Taskbar"
  5. "NAME"="Windows ME Scheduled Tasks"
  6. "OSVERSION"="00001"
  7. "VERSION"="1.10"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable Scheduled Tasks Icon"
  10. "DESCRIPTION 1"="For Win ME: If this option is checked, the Scheduled Task Icon will appear in the Taskbar."
  11. "AUTHOR"="Ojatex@aol.com"
  12. "CONTACTURL"="http://members.aol.com/ojatex/"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com."
  15. "COMMENT 2"="Thanks to CptSiskoX for tip."
  16. "COMMENT 3"="See MSKB article: "How to Enable the Scheduled Tasks Icon in Windows Me" at http://support.microsoft.com/support/kb/articles/q272/9/62.asp for more information."
  17.  
  18.  
  19. sPath="HKLM\Software\Microsoft\Plus!\System Agent\EnableTrayIcon"
  20.  
  21. Sub Plugin_Initialize 
  22.     i=RegReadValue(sPath)
  23.     if i=1 then
  24.        Call SetUIElement(1,true) 
  25.     end if  
  26. End Sub
  27.  
  28. Sub Plugin_CheckData(ElementIndex)
  29. End Sub
  30.  
  31. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  b=GetUIElement(1)
  33.  if b=true then
  34.     Call RegWriteValue(sPath,1,2) 
  35.  else
  36.     if RegValueExists(sPath) then
  37.        Call RegDeleteValue(sPath)
  38.     end if
  39.  end if
  40.  
  41.  Call Restart()
  42. End Sub
  43.  
  44.  
  45. Sub Plugin_Terminate 
  46. End Sub
  47.  
  48.  
  49.  
  50.